home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 079 (1988-11-15)(Ossowski, Stefan)(DE)(PD).zip
/
Taifun 079 (1988-11-15)(Ossowski, Stefan)(DE)(PD).adf
/
LabyrinthII
/
mod2.c
< prev
next >
Wrap
C/C++ Source or Header
|
1988-08-14
|
15KB
|
653 lines
#define MODE_OLDFILE 1005L /* System define, easier than using the whole
* include file */
#define BOYS 24 /* Number of boys in game */
#define GIRLS 24 /* (sex distinction so program can print right pronoun) */
#define STUDENTS BOYS+GIRLS
#define MEN 18
#define WOMEN 4
#define TEACHERS MEN+WOMEN
#define PLAYERS STUDENTS+TEACHERS
#define OBJECTS 44
#define VERBS 38
#define FAWEAPON 7 /* First offensive weapon */
#define FDWEAPON 2 /* First defensive weapon */
#define FTREASURE 31 /* First valuable object */
#define AWEAPONS 24 /* Number of offensive weapons */
#define DWEAPONS 5 /* Number of defensive weapons */
#define TREASURES 14 /* Number of valuable objects */
#define ROOMS 217
#define NAMELEN 30L /* Max length of user-defined name */
#define INLEN 60L /* Max length of input */
#define DESCLEN 40000L /* Amount of memory space for location descriptions */
#define NOWHERE -9999 /* If something is NOWHERE, it no longer exists */
#define MAXCARR 10 /* Maximum number of objects that can be carried */
#define DROPZONE 75 /* Where treasures must be dropped to score points */
long openmouth (),Open (),Read (),RangeRand (),start (),checkinput (),input ();
int lockable (),walk (),numobj ();
#define rnd(x) RangeRand((long)x)
#define MAX(a,b) ((a)>(b)?(a):(b))
#define MIN(a,b) ((a)<(b)?(a):(b))
typedef char flag; /* For a very small range of possible values */
extern char *directions[],*oname[],*verb[],*pname[];
extern int defval[],attval[],value[],ownroom[];
extern flag talking;
extern flag violence; /* Tame or gruesome */
extern flag descriptions; /* 0 for brief to 2 for verbose */
extern flag narration; /* 0/1 ... local/global */
extern int player; /* Who is the player? */
extern int score[PLAYERS+1]; /* +1 is because we're not using element 0 */
extern int strength[PLAYERS+1];
extern int power[PLAYERS+1];
extern int ploc[PLAYERS+1]; /* Location of player */
extern int pcouldbe[PLAYERS+1]; /* For deciding which is one named in input */
extern int oloc[OBJECTS+1]; /* Location of object */
extern int ocouldbe[OBJECTS+1];
extern int exits[ROOMS+1][10]; /* Exits from rooms */
extern int oexits[ROOMS+1][10]; /* Original exits from rooms */
extern flag visited[ROOMS+1]; /* Which rooms have been visited */
extern int Verb,Noun; /* Verb,noun input by player */
extern int oldverb,oldnoun; /* Previous verb, noun */
extern int gameover; /* Is game over? */
extern long waiting; /* How many turns still to wait? */
extern long filehandle; /* Handle for room description file */
extern char namebuf[NAMELEN]; /* buffer for user-defined name */
extern char inbuf[INLEN]; /* buffer for input */
extern char *descs; /* Location of room description file in memory */
extern char *shortdesc[ROOMS+1],*longdesc[ROOMS+1]; /* Location of descriptions */
int doinput ()
{
int i,j,k;
char *a;
if (Verb>3 && Verb<14) /* A direction */
{
i=walk (player,Verb-4);
if (i==1)
print ("The door's locked.\n");
if (i==2 && Verb<12)
print ("You can't go that way.\n");
if (i==2 && Verb==12)
print ("You seem to have got a bit out of practice at the levitation lately.\n");
if (i==2 && Verb==13)
print ("There seems to be a big hard flat thing called the ground in the way.\n");
if (i==0) /* Successful! */
look (ploc[player]); /* so describe new location */
return (0); /* Anyway, return to main program */
}
switch (Verb)
{
case (2): /* Open */
if (oloc[1]!=-player)
{
print ("You can't open anything without keys!\n");
return (1);
}
for (i=0;i<=9;i++)
if (exits[ploc[player]][i]<0)
{
print ("The door opens to the ");
print (directions[i]);
exits[ploc[player]][i]=-exits[ploc[player]][i];
for (j=0;j<=9;j++)
if (exits[exits[ploc[player]][i]][j]==-ploc[player])
exits[exits[ploc[player]][i]][j]=ploc[player];
return (0);
}
print ("There's no locked door here to open.\n");
return (1);
case (3): /* Close */
if (oloc[1]!=-player)
{
print ("You can't close anything without keys!\n");
return (1);
}
for (i=0;i<=9;i++)
if (oexits[ploc[player]][i]<0 && exits[ploc[player]][i]>0)
{
print ("You close and lock the door.\n");
for (j=0;j<=9;j++)
if (exits[exits[ploc[player]][i]][j]==ploc[player])
exits[exits[ploc[player]][i]][j]=-ploc[player];
exits[ploc[player]][i]=-exits[ploc[player]][i];
return (0);
}
print ("I see no open door here which may be locked.\n");
return (1);
case (16): /* Kill */
if (Noun==0)
{
print ("You have to enter the name of a player you wish to attack.\n");
return (1);
}
if (ploc[Noun]!=ploc[player])
{
print (pname[Noun]);
print (" isn't here.\n");
return (1);
}
if (Noun==player)
{
print ("Suicide is not the answer!\n");
return (1);
}
j=40;
k=0;
for (i=0;i<AWEAPONS;i++)
if (attval[i]>j && oloc[i+FAWEAPON]==-player)
{
j=attval[i];
k=i+FAWEAPON;
}
print ("You attack ");
print (pname[Noun]);
if (k)
{
print (" with ");
oprint (k,0);
}
print (".\n");
for (k=0;k<DWEAPONS;k++)
if (oloc[k+FDWEAPON]==-Noun)
j-=defval[k];
strength[Noun]-=j;
if (strength[Noun]<1)
{
ploc[Noun]=NOWHERE;
power[player]+=(power[Noun]/4);
if (violence)
{
switch (rnd(4))
{
case (0):
print ("With one well-placed blow, you cleave ");
print (pname[Noun]);
print ("'s skull. Pinkish-grey brain tissue spatters all over the walls.\n");
break;
case (1):
print ("You get past your exhausted enemy's guard and sever the carotid artery. A bright red stream of ");
print ("blood spurts out, drenching the room.\n");
break;
case (2):
print ("Your attack succeeds in slicing open ");
print (pname[Noun]);
print ("'s belly. A pile of steaming guts spills out onto the floor.\n");
break;
case (3):
print ("You lop ");
print (pname[Noun]);
print ("'s head clean off. It bounces to the floor and the decapitated corpse collapses, jetting a");
print (" stream of blood from the stump of the neck.\n");
}
}
else
{
print (pname[Noun]);
print (" dies.\n");
}
for (i=1;i<=OBJECTS;i++)
if (oloc[i]==-Noun)
{
oloc[i]=ploc[player];
oprint (i,1);
print (" falls to the ground.\n");
}
}
break;
case (18): /* Take */
if (Noun==0)
{
print ("I don't understand what you're referring to.\n");
return (1);
}
if (oloc[Noun]==-player)
{
print ("You already have the ");
print (oname[Noun]);
print (".\n");
return (1);
}
if (oloc[Noun]!=ploc[player])
{
print ("I don't see any ");
print (oname[Noun]);
print (" here.\n");
return (1);
}
if (numobj (-player)>=MAXCARR)
print ("You can't carry any more.\n");
else
{
print ("Taken.\n");
oloc[Noun]=-player;
}
break;
case (19): /* Drop */
if (Noun==0)
{
print ("I don't understand what you want to drop.\n");
return (1);
}
if (oloc[Noun]!=-player)
{
print ("You're not holding any ");
print (oname[Noun]);
print (".\n");
return (1);
}
if (ploc[player]==DROPZONE && Noun>=FTREASURE && Noun<FTREASURE+TREASURES)
{
print ("The ");
print (oname[Noun]);
print (" vanishes in a swirl of light and your score is incremented by ");
printshort (value[Noun-FTREASURE]);
print (" points.\n");
score[player]+=value[Noun-FTREASURE];
oloc[Noun]=NOWHERE;
}
else
{
print ("Dropped.\n");
oloc[Noun]=ploc[player];
}
break;
case (20): /* Wait */
if (Noun)
waiting=Noun-1;
else
waiting=0;
break;
case (21): /* Spectator */
waiting=2000000000;
print ("Entering spectator mode. Press any key to stop.\n");
break;
case (22): /* Quit */
print ("Are you sure you want to stop playing? (Y/N)");
if (yesno ())
gameover=1;
break;
case (23): /* Look */
i=descriptions;
descriptions=2;
look (ploc[player]);
descriptions=i;
break;
case (24): /* Inventory */
print ("You are ");
print (pname[player]);
print (".\n");
print ("Your power is ");
printshort (power[player]);
print (".\n");
print ("Your strength is ");
printshort (strength[player]);
print (".\n");
print ("Your score is ");
printshort (score[player]);
print (".\n");
if (numobj (-player)==0)
print ("You are emptyhanded.\n");
else
{
print ("You are carrying ");
olist (-player);
}
break;
case (25): /* Who */
j=0;
print ("The following players are still around:");
for (i=1;i<=PLAYERS;i++)
if (ploc[i]!=NOWHERE && i!=player)
{
a=inbuf;
if (j)
*a++=',';
*a++=' ';
for (k=0;pname[i][k]!='\0';k++)
a[k]=pname[i][k];
a[k++]='\0';
print (inbuf);
j=1;
}
print (".\n");
break;
case (26): /* Information */
print ("The following players are still around:\n");
for (i=1;i<=PLAYERS;i++)
if (ploc[i]!=NOWHERE && i!=player)
{
a=pname[i];
for (j=0;a[j]!='\0';j++)
inbuf[j]=a[j];
for (;j<30;j++)
inbuf[j]=' ';
inbuf[j++]=' ';
inbuf[j]='\0';
print (inbuf);
a=shortdesc[ploc[i]];
for (j=0;a[j]!='\0';j++)
inbuf[j]=a[j];
for (;j<30;j++)
inbuf[j]=' ';
inbuf[j++]=' ';
inbuf[j]='\0';
print (inbuf);
printshort (strength[i]);
writechar ((long)'\n');
}
break;
case (27): /* Become */
if (Noun==0)
ploc[0]=ploc[player];
if (ploc[Noun]==NOWHERE)
{
print ("That person is dead!\n");
return (1);
}
player=Noun;
print ("You are ");
print (pname[player]);
print (".\n");
break;
case (28): /* Local */
narration=0;
print ("Local narration only.\n");
break;
case (29): /* Global */
narration=1;
print ("Global narration.\n");
break;
case (30): /* Brief */
descriptions=0;
print ("Brief descriptions only.\n");
break;
case (31): /* Normal */
descriptions=1;
print ("Long descriptions only in unvisited rooms.\n");
break;
case (32): /* Verbose */
descriptions=2;
print ("Long descriptions all the time.\n");
break;
case (33): /* Tame */
violence=0;
print ("Tame deaths only.\n");
break;
case (34): /* Gruesome */
violence=1;
print ("Gruesome deaths selected.\n");
break;
case (35): /* Exits */
j=0;
print ("You can go:\n");
for (i=0;i<=9;i++)
if (exits[ploc[player]][i]>0)
{
print (directions[i]);
j=1;
}
if (j==0)
print ("nowhere...\n");
break;
case (36): /* Talk */
if (talking==0)
if (openmouth ())
{
talkerror ();
return (1);
}
talking=1;
print ("Speech on.\n");
break;
case (37): /* Quiet */
if (talking==1)
{
talking=2;
print ("Speech off.\n");
}
else
alreadyquiet ();
break;
default: /* 38=Help */
print ("These are the verbs I understand:\n");
for (i=1;i<=VERBS;i++)
{
print (verb[i]);
if (i<VERBS)
writechar ((long)',');
}
print (".\n");
}
return (0); /* Input understood and acted on */
}
domobile (p)
int p;
{
register int i;
int l,carried,numcarr,j,target;
int pmaxpower,pmostpower; /* Most powerful offensive weapons carried */
int pminpower,pleastpower; /* Least powerful */
int lmaxpower,lmostpower; /* Most powerful in room */
int lmaxdef,lmostdef; /* Most powerful defensive weapons */
int pmaxval,pmostval; /* Most valuable thing carried */
int pminval,pleastval; /* Least valuable */
int lmaxval,lmostval; /* Most valuable in room */
carried=-p;
l=ploc[p];
numcarr=numobj (carried);
/* Get more powerful offensive weapon? */
pmaxpower=lmaxpower=40;
for (i=0;i<AWEAPONS;i++)
{
if (oloc[i+FAWEAPON]==carried && attval[i]>pmaxpower)
{
pmaxpower=attval[i];
pmostpower=i;
}
if (oloc[i+FAWEAPON]==l && attval[i]>lmaxpower)
{
lmaxpower=attval[i];
lmostpower=i;
}
}
if (lmaxpower>pmaxpower && numcarr<MAXCARR)
{
get (p,lmostpower+FAWEAPON);
return;
}
/* Get defensive weapon? */
lmaxdef=0;
for (i=0;i<DWEAPONS;i++)
if (oloc[i+FDWEAPON]==l && defval[i]>lmaxdef)
{
lmaxdef=defval[i];
lmostdef=i;
}
if (lmaxdef && numcarr<MAXCARR)
{
get (p,lmostdef+FDWEAPON);
return;
}
/* Fight? */
target=0;
for (i=PLAYERS;i>0;i--)
if (ploc[i]==l && i!=p)
target=i;
if (target)
{
if (narration && l!=ploc[player])
{
writechar (27L);
nprint ("[32m");
}
if (narration || l==ploc[player])
{
print (pname[p]);
print (" attacks ");
if (target!=player)
print (pname[target]);
else
print ("you");
if (pmaxpower>40)
{
print (" with ");
oprint (pmostpower+FAWEAPON,0);
}
print (".\n");
}
for (i=0;i<DWEAPONS;i++)
if (oloc[i+FDWEAPON]==-target)
pmaxpower-=defval[i];
strength[target]-=pmaxpower;
if (strength[target]<1)
{
ploc[target]=NOWHERE;
power[p]+=(power[target]/4);
if ((narration || l==ploc[player])&& target!=player)
{
print (pname[target]);
print (" dies.\n");
}
if (target==player)
{
print ("You die.\n");
gameover=1;
}
for (i=1;i<=OBJECTS;i++)
if (oloc[i]==-target)
{
oloc[i]=l;
if (l==ploc[player])
{
oprint (i,1);
print (" falls to the ground.\n");
}
}
}
writechar (27L);
nprint ("[0m");
return;
}
/* Drop treasure? */
if (l==DROPZONE)
{
pmaxval=0;
for (i=0;i<TREASURES;i++)
if (oloc[i+FTREASURE]==carried && value[i]>pmaxval)
{
pmaxval=value[i];
pmostval=i;
}
if (pmaxval)
{
drop (p,pmostval+FTREASURE);
return;
}
}
/* Drop excess weight? */
if (numcarr>=MAXCARR)
{
pminpower=9999;
for (i=0;i<AWEAPONS;i++)
if (attval[i]<pminpower && oloc[i+FAWEAPON]==carried)
{
pminpower=attval[i];
pleastpower=i;
}
if (pminpower<pmaxpower)
{
drop (p,pleastpower+FAWEAPON);
return;
}
pminval=32767;
for (i=0;i<TREASURES;i++)
if (value[i]<pminval && oloc[i+FTREASURE]==carried)
{
pminval=value[i];
pleastval=i;
}
if (pminval<32767)
{
drop (p,pleastval+FTREASURE);
return;
}
}
/* Get keys? */
if (oloc[1]==l && numcarr<MAXCARR)
{
get (p,1);
return;
}
/* Get treasure? */
lmaxval=0;
pminval=32767;
for (i=0;i<TREASURES;i++)
{
if (oloc[i+FTREASURE]==l && value[i]>lmaxval)
{
lmaxval=value[i];
lmostval=i;
}
if (oloc[i+FTREASURE]==carried && value[i]<pminval)
{
pminval=value[i];
pleastval=i;
}
}
if (lmaxval && (((numcarr+1)<MAXCARR) || (numcarr<MAXCARR && pminval<lmaxval)))
{
get (p,lmostval+FTREASURE);
return;
}
/* Open door? */
if (strength[p]==power[p] && oloc[1]==carried)
{
for (i=0;i<=9;i++)
if (exits[l][i]<0)
{
exits[l][i]=-exits[l][i];
for (j=0;j<=9;j++)
if (exits[exits[l][i]][j]==-l)
exits[exits[l][i]][j]=l;
if (l==ploc[player])
{
print (pname[p]);
print (" opens a door leading ");
print (directions[i]);
}
return;
}
}
/* Walk in a random direction */
i=rnd (10);
(void)walk (p,i);
}